program testValueNumberingAlgebraicOrA;

class testValueNumberingAlgebraicOrA
BEGIN
   
   VAR aa, bb, cc, dd : integer;

FUNCTION testValueNumberingAlgebraicOrA;
BEGIN
   aa := 5;
   bb := aa OR aa
END

END
.

